home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-04-11 | 1.3 KB | 22 lines | [TEXT/LLAB] |
- #N Pseudorandom number generator with p46 logic
- #C A glider stream is emitted representing a pseudorandom binary
- #C sequence satisfying the recursion a[n] = a[n-1] EQV a[n-12].
- #C (By spreading out the pattern, the 12 can be changed.) The
- #C sequence has period 3255, so the gun has period 46*3255 = 149730.
- #C Built by Bill Gosper, October 1989 or earlier
- #C (Header by Dean Hickerson, 4/11/93)
- x = 100, y = 133
- 28bo$27b2o$13b2o11b3obo9b2o$13b2o10b2o13b2o$26b2o$27bo2$27bo10bo$26b2o
- 8b2obo$25b2o8b2ob3o$26b3obo5bo2bo$27b2o8b2o$28bo6$2b2o$2b2o9$52bo$51b
- 2o$50b2o4bo$51b2o4b2o$2b2o5b2o$bo2bo3bo2bo$4b2ob2o$3bobobobo41b2o4b2o$
- 3bobobobo9b2o20b2o7b2o4bo11b2o$bo9bo7b2o20b2o8b2o15b2o$o11bo39bo2$4b2o
- b2o$2bo2bobo2bo$2b2ob3obob2o$4b5ob4o$5bob2ob2obo$4b2o7b2o$4b2o7b2o$4b
- 3o5b3o$6b3ob3o$8bobo$5bo2bobo2bo$4bo2bo3bo2bo$5b2o5b2o4b3o5b3o$17b2ob
- 2o3b2ob2o$17b2obobobobob2o$18bo3bobo3bo$18bo2bo3bo2bo$19b3o3b3o3$98b2o
- $98b2o$98b2o$19b2o70b3o3b3o$19b2o70bobo3bobo$5b2o84bo2bobo2bo$5b2o86b
- 2ob2o3$21b2o$21b2o$91b2o5b2o$91b2obobob2o$91bo2bobo2bo$91b3o3b3o10$20b
- 3o5b3o$20b3o5b3o$21b2o5b2o$23bo3bo70b2o$21bo2bobo2bo68b2o$20bo3bobo3bo
- $21bo2bobo2bo$21b3o3b3o5$21b2o$21b2o22$18b2o$17bobo$16b2obo$17b2o26b2o
- $18bo25b2ob2o$45bo2bo$18bo26bo2bo$17b2o27b2o$8b2o6b2obo$8b2o7bobo26b2o
- $18b2o25bo2bo$45bo2bo6b2o$44b2ob2o6b2o$45b2o!
-